(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    138376,       2992]
NotebookOptionsPosition[    129175,       2795]
NotebookOutlinePosition[    129848,       2821]
CellTagsIndexPosition[    129767,       2816]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.2", "HistoryData",
  CellTags->"New",ExpressionUUID->"70aab7fa-7bca-4d29-8aa9-33927fd441b3"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"a3df0bc4-9355-4268-baf4-69a7398d0328"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"648390e6-1742-4ae4-994c-a90b4ac70b02"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"87cf265c-bfee-43fe-b15f-2010c9419ae4"]
}], "History",
 CellID->1247902091,ExpressionUUID->"e34814df-03c1-40f3-8b14-23c7ed694645"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"caf3c9f9-2bc6-4084-988a-ae808d890bfe"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"daa58d37-d40c-4034-88b0-8f65e9b4c419"],

Cell["MaXrd", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"2ea4eeb8-d515-4413-93fa-ff269848929e"],

Cell["MaXrd`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"30daf8aa-cbb0-4094-aa24-755ed598ebe0"],

Cell["MaXrd/ref/EquivalentIsotropicADP", "Categorization",
 CellLabel->"URI",ExpressionUUID->"72e73c26-1c8b-40ed-a6e7-9189e1505d02"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"5488e420-9e66-4eb2-b954-e171e43e34c7"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"88aefe01-112e-4ef0-8709-c003d38174b8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"1789a87c-bf22-41f9-bd73-41b92ad66267"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"22f38a74-bb36-4804-8463-0c3c3507b8f8"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"57e61849-0686-4d1e-aa6f-d3fe6503b9c0"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"3d49edd2-74ee-4d5e-9a79-ca42c3f9bc85"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"4e88d1ab-b614-4486-b745-872ce64ec071"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"407108a7-d2e9-4e0c-9e0c-4b8bdfe9b1e6"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"ca9386b3-5954-4761-a12d-314216040281"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"d62ea2d8-a25c-4ee2-93d1-acc9e476d42e"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"429d7c16-aacc-4ccb-9682-9305e2d113c3"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"9c50b4b6-8907-41fd-a292-7c60915c6414"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"6eef8f76-c659-4b0e-b5ee-6ffc4cd90ade"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"8425b846-eb44-4430-aa1f-77fd2afce511"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"3bf100c3-3eef-414c-abb9-99014c81f4cc"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"c59d0d97-bed4-43b9-8cf4-e4fab6f68bba"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"42a7c652-820d-4e6e-b2ef-26ed136789d4"]
}, Closed]],

Cell[CellGroupData[{

Cell["EquivalentIsotropicADP", "ObjectName",
 CellID->1224892054,ExpressionUUID->"4e64e440-d18e-4706-9afb-07d959c41fdf"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"fb484fcc-c8c5-4d97-adad-b3a4c4849c15"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["EquivalentIsotropicADP",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/EquivalentIsotropicADP"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "fb25c784-6527-4d95-a2da-470b779efeac"],
 " \[LineSeparator]calculates the equivalent isotropic atomic displacement \
parameters (ADPs) of the atoms in ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "fa0c51ab-51f6-4a6f-8452-43bb37bc59ca"],
 "."
}], "Usage",
 CellChangeTimes->{{3.7609479953839912`*^9, 3.760948095996291*^9}, {
  3.760948401450843*^9, 3.760948407879965*^9}},
 CellID->982511436,ExpressionUUID->"a6dbbaeb-be35-4f6b-8624-367a8736ea83"],

Cell["XXXX", "Notes",
 CellID->1067943069,ExpressionUUID->"91ea4971-aaf5-458c-b840-92a7f97ca6de"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"8f14a34b-8734-4d11-a63f-1a303be79381"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"88ddab2c-2eee-48a1-9a7e-e029576d144c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"cac3a47e-bc0a-44f4-b0b8-69e9a4917b41"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"65ffaf73-3645-48a0-b8ca-052416876a33"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"859d80da-ec66-4b53-9cfe-7cdf319c34ca"],

Cell[TextData[{
 "[1] ",
 ButtonBox["Fischer, R. X. & Tillmanns, E. (1988). Acta Cryst. C44, 775-776.",
  
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://doi.org/10.1107/S0108270187012745"], None}]
}], "RelatedLinks",
 CellChangeTimes->{{3.760948314919571*^9, 3.7609483165567837`*^9}, {
  3.7609483505592623`*^9, 3.760948369456387*^9}},
 CellID->1193746755,ExpressionUUID->"2be453e3-a47f-4047-9802-cf485d94ad79"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"9e4be9f7-47ae-4435-b270-adf1e7e7403b"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"af7ebe55-eb0c-4819-811c-e5a38457a290"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ExportCrystalData"]], "InlineFormula",
  ExpressionUUID->"75ad3cda-2520-4c5b-9752-a42f47b91fab"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetLatticeParameters",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetLatticeParameters"]], "InlineFormula",
  ExpressionUUID->"4c829777-8eee-40a3-9f91-0713fd62f98c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"9de93435-dc94-4d9d-bfd9-b1b5938f51d3"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"8bb20cea-e123-4750-9283-6516aa49a25c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"86be95f0-e156-4e51-912f-3af881f7291a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["CrystalFormulaUnits",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalFormulaUnits"]], "InlineFormula",
  ExpressionUUID->"63c36f14-a2bc-4944-921f-432f3800f7d9"]
}], "SeeAlso",
 CellChangeTimes->{{3.761200722533486*^9, 3.7612007521540003`*^9}, {
  3.761217731389861*^9, 3.761217736682088*^9}},
 CellID->929782353,ExpressionUUID->"0f88936f-d79e-4791-9e6a-be13133a358b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"e6369361-1978-4c88-a636-0d3ab33dade9"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"5da7773e-d2b4-43d5-9054-f16be4ffe9bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"c29569a6-78f8-4ba7-b9c9-3927a785bf31"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$CrystalData", "\[LeftDoubleBracket]", 
  RowBox[{
  "\"\<CopperTungstenOxide\>\"", ",", "\"\<AtomData\>\"", ",", "All", ",", 
   "\"\<DisplacementParameters\>\""}], "\[RightDoubleBracket]"}]], "Input",
 CellChangeTimes->{{3.761198723328561*^9, 3.761198793782436*^9}},
 CellLabel->"In[1]:=",
 CellID->216885979,ExpressionUUID->"d4ff8e9c-e1c5-4ca8-947c-6d26cd9550e4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "0.00587`", ",", "0.00429`", ",", "0.00428`", ",", "0.00184`", ",", 
     RowBox[{"-", "0.00159`"}], ",", 
     RowBox[{"-", "0.00109`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.004520000000000001`", ",", "0.00238`", ",", "0.00272`", ",", 
     "0.00026000000000000003`", ",", 
     RowBox[{"-", "0.00079`"}], ",", "0.00017`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0085`", ",", "0.0055000000000000005`", ",", "0.0061`", ",", 
     RowBox[{"-", "0.0004`"}], ",", 
     RowBox[{"-", "0.0013000000000000002`"}], ",", 
     RowBox[{"-", "0.0012000000000000001`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.0091`", ",", "0.0034000000000000002`", ",", "0.0057`", ",", 
     "0.0024000000000000002`", ",", "0.0002`", ",", 
     RowBox[{"-", "0.0008`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.0085`", ",", "0.005`", ",", "0.0045000000000000005`", ",", "0.0019`", 
     ",", 
     RowBox[{"-", "0.0004`"}], ",", 
     RowBox[{"-", "0.0008`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.0079`", ",", "0.006`", ",", "0.0035`", ",", "0.00030000000000000003`", 
     ",", "0.`", ",", "0.0002`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.761198766411305*^9, 3.7611988020232773`*^9}},
 CellLabel->"Out[1]=",
 CellID->1662262888,ExpressionUUID->"2dac3af0-0d13-42ba-b54c-3e7ba9a0fed0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EquivalentIsotropicADP", "[", "\"\<CopperTungstenOxide\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.761198711460718*^9, 3.761198717152411*^9}},
 CellLabel->"In[2]:=",
 CellID->1260670980,ExpressionUUID->"483a6d5f-6dd0-45da-a8c0-0ea94be60393"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.005085592092131515`", ",", "0.0032815643370893177`", ",", 
   "0.006804979865969918`", ",", "0.006349865424717015`", ",", 
   "0.006260488668510511`", ",", "0.0058969540755505305`"}], "}"}]], "Output",\

 CellChangeTimes->{3.76119871747917*^9, 3.761198802140573*^9},
 CellLabel->"Out[2]=",
 CellID->1037594793,ExpressionUUID->"10b96319-60fe-49ab-9013-d00f2c1b30e6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"765208eb-133e-4734-b1b9-7a107b114b61"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "3d5008ed-cfef-48e8-8d40-bcaa2fe17a08"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{3.760947943957223*^9},
 CellID->1293636265,ExpressionUUID->"81fa028d-e926-4f05-adca-90852d589381"],

Cell["\<\
Here is a function that calculates the equivalent isotropic thermal \
displacement parameters from anisotropic parameters.\
\>", "ExampleText",
 CellChangeTimes->{{3.759312879179428*^9, 3.759312913868428*^9}},
 CellID->41452660,ExpressionUUID->"81adf01c-9070-464b-83c7-b8f4503bc18a"],

Cell[TextData[{
 "Let us work with ",
 StyleBox["ferrocene",
  FontSlant->"Italic"],
 " as our example data:"
}], "ExampleText",
 CellChangeTimes->{{3.759312919702005*^9, 3.759312936939603*^9}, {
  3.760947986457242*^9, 3.760947987865121*^9}},
 CellID->718068048,ExpressionUUID->"527b7197-39fd-41f3-b41a-5f6c4161b9e4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cifFile", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", ",", 
      "\"\<Ferrocene.cif\>\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ImportCrystalData", "[", "cifFile", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.759312942777877*^9, 3.7593129970608377`*^9}, {
  3.760948427330208*^9, 3.7609484319750433`*^9}},
 CellLabel->"In[2]:=",
 CellID->1167243622,ExpressionUUID->"9386c1ea-63df-4705-bc0b-7a71a603c509"],

Cell["Before:", "ExampleText",
 CellChangeTimes->{{3.759314088663746*^9, 3.759314094608864*^9}},
 CellID->998333548,ExpressionUUID->"e72b219f-a823-4da6-bf5c-c2b67e6b29fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"$CrystalData", "[", 
   RowBox[{"\"\<Ferrocene\>\"", ",", "\"\<AtomData\>\""}], "]"}], "//", 
  "Dataset"}]], "Input",
 CellChangeTimes->{{3.759314115896257*^9, 3.759314160799644*^9}, {
  3.759314248399002*^9, 3.75931425550148*^9}},
 CellLabel->"In[4]:=",
 CellID->1912889057,ExpressionUUID->"9fca3e6f-0712-42fb-99ff-f3c38c4d8b32"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 11, "Length" -> 11, "InitialType" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{
           "Element", "SiteSymmetryOrder", "FractionalCoordinates", 
            "DisplacementParameters", "Type"}, {
            TypeSystem`Atom[
             TypeSystem`Enumeration["C", "Fe", "H"]], 
            TypeSystem`Atom[Integer], 
            TypeSystem`Vector[
             TypeSystem`Atom[Real], 3], TypeSystem`AnyType, 
            TypeSystem`Atom[
             TypeSystem`Enumeration["Uani", "Uiso"]]}], 11], "Shape" -> 
        TypeSystem`PackageScope`HeaderShape[
          
          Association[{All, "Element"} -> 1, {All, "SiteSymmetryOrder"} -> 
           1, {All, "FractionalCoordinates"} -> 
           1, {All, "DisplacementParameters"} -> 1, {All, "Type"} -> 1], 
          TypeSystem`PackageScope`Limited[
           TypeSystem`PackageScope`ColumnShape[
            TypeSystem`PackageScope`RowShape[
             Association[
             "Element" -> TypeSystem`PackageScope`AtomShape[27.], 
              "SiteSymmetryOrder" -> TypeSystem`PackageScope`AtomShape[34], 
              "FractionalCoordinates" -> TypeSystem`PackageScope`UnknownShape,
               "DisplacementParameters" -> 
              TypeSystem`PackageScope`UnknownShape, "Type" -> 
              TypeSystem`PackageScope`AtomShape[36.]]]], 11, {}]], 
        "InitialData" -> TypeSystem`PackageScope`CacheHandle[141511473], 
        "Type" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{
           "Element", "SiteSymmetryOrder", "FractionalCoordinates", 
            "DisplacementParameters", "Type"}, {
            TypeSystem`Atom[
             TypeSystem`Enumeration["C", "Fe", "H"]], 
            TypeSystem`Atom[Integer], 
            TypeSystem`Vector[
             TypeSystem`Atom[Real], 3], TypeSystem`AnyType, 
            TypeSystem`Atom[
             TypeSystem`Enumeration["Uani", "Uiso"]]}], 11], "HandleQ" -> 
        True, "RowTarget" -> 20, "Data" -> 
        TypeSystem`PackageScope`CacheHandle[141511473]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"Element\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Element\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    All, "Element"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[All, "Element"]], "Mouse"], 
                Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"SiteSymmetryOrder\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"SiteSymmetryOrder\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    All, "SiteSymmetryOrder"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[All, "SiteSymmetryOrder"]], "Mouse"],
                 Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"FractionalCoordinates\"", FontColor -> 
                    GrayLevel[0.4]]], {{20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"FractionalCoordinates\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    All, "FractionalCoordinates"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[All, "FractionalCoordinates"]], 
                 "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"DisplacementParameters\"", FontColor -> 
                    GrayLevel[0.4]]], {{20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"DisplacementParameters\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    All, "DisplacementParameters"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[All, "DisplacementParameters"]], 
                 "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"Type\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Type\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    All, "Type"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[All, "Type"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["Fe", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[1, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["2"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[1, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Style[{0.5, 0.5, 0.5}, ShowStringCharacters -> False], 
                    Style[
                    Style[{0.5, 0.5, 0.5}, ShowStringCharacters -> False], 
                    FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    1, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[1, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.0525, 0.0387, 
                    0.0474, -0.00145, -0.0016, -0.00678}, 
                    ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{0.0525, 0.0387, 
                    0.0474, -0.00145, -0.0016, -0.00678}, 
                    ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    1, 
                    Key["DisplacementParameters"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[1, 
                   Key["DisplacementParameters"]]], "Mouse"]], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[1, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[2, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[2, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.7554, 0.6744, 0.5431}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.7554, 0.6744, 0.5431}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    2, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[2, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.0754, 0.075, 0.083, -0.0238, 0.0019, -0.0198}, 
                    ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{0.0754, 0.075, 0.083, -0.0238, 0.0019, -0.0198}, 
                    ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    2, 
                    Key["DisplacementParameters"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[2, 
                   Key["DisplacementParameters"]]], "Mouse"]], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[2, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[3, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[3, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.8802, 0.6901, 0.4865}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.8802, 0.6901, 0.4865}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    3, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[3, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.093"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[3, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[3, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[4, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[4, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.7471, 0.5654, 0.6567}, ShowStringCharacters -> 
                    False], 
                    Style[
                    Style[{0.7471, 0.5654, 0.6567}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    4, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[4, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.087, 0.075, 0.069, 0.005, -0.0248, -0.0178}, 
                    ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{0.087, 0.075, 0.069, 0.005, -0.0248, -0.0178}, 
                    ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    4, 
                    Key["DisplacementParameters"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[4, 
                   Key["DisplacementParameters"]]], "Mouse"]], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[4, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[5, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[5, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.8668, 0.4942, 0.69}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.8668, 0.4942, 0.69}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    5, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[5, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.093"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[5, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[5, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[6, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[6, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.551, 0.5692, 0.717}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.551, 0.5692, 0.717}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    6, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[6, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.145, 0.083, 0.054, -0.039, 0.014, -0.0201}, 
                    ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{0.145, 0.083, 0.054, -0.039, 0.014, -0.0201}, 
                    ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    6, 
                    Key["DisplacementParameters"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[6, 
                   Key["DisplacementParameters"]]], "Mouse"]], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[6, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[7, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[7, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.5097, 0.5037, 0.7981}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.5097, 0.5037, 0.7981}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    7, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[7, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.112"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[7, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[7, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[8, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[8, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.5546, 0.7606, 0.5208}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.5546, 0.7606, 0.5208}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    8, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[8, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.144, 0.039, 0.083, 0.0031, -0.04, -0.0087}, 
                    ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{0.144, 0.039, 0.083, 0.0031, -0.04, -0.0087}, 
                    ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    8, 
                    Key["DisplacementParameters"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[8, 
                   Key["DisplacementParameters"]]], "Mouse"]], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[8, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[9, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[9, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.5182, 0.8507, 0.4458}, ShowStringCharacters -> 
                    False], 
                    Style[
                    Style[{0.5182, 0.8507, 0.4458}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    9, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[9, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.108"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[9, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[9, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[10, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[10, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.4076, 0.6972, 0.6318}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.4076, 0.6972, 0.6318}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    10, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[10, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.0593, 0.139, 0.187, 0.009, -0.001, -0.128}, 
                    ShowStringCharacters -> False], 
                    Style[
                    
                    Style[{0.0593, 0.139, 0.187, 0.009, -0.001, -0.128}, 
                    ShowStringCharacters -> False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    10, 
                    Key["DisplacementParameters"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[10, 
                   Key["DisplacementParameters"]]], "Mouse"]], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[10, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[11, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[11, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.2547, 0.7367, 0.6511}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.2547, 0.7367, 0.6511}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][{
                    11, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[11, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.155"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[11, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
                 
                  GeneralUtilities`Slice[11, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 459382648]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[459382648][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {742., {154.8544921875, 160.1455078125}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellChangeTimes->{3.759314128387785*^9, 3.759314161169166*^9, 
  3.759314255908113*^9, 3.759314292250367*^9},
 CellLabel->"Out[4]=",
 CellID->2076979819,ExpressionUUID->"3b2b5b7c-7601-4c7a-b086-03c89f63062d"]
}, Open  ]],

Cell["After:", "ExampleText",
 CellChangeTimes->{{3.759314088663746*^9, 3.75931409852883*^9}},
 CellID->259200706,ExpressionUUID->"66156fe3-f768-4b3a-989e-84a58067b0e6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"newParameters", "=", 
  RowBox[{
  "EquivalentIsotropicADP", "[", "\"\<Ferrocene\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.75931413714874*^9, 3.759314194630829*^9}, 
   3.760947903708179*^9},
 CellLabel->"In[5]:=",
 CellID->1818909673,ExpressionUUID->"e1df406d-1b84-4369-801d-ec8b3b65d659"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.04636014357291737`", ",", "0.07789057662932336`", ",", "0.093`", ",", 
   "0.07807109818696764`", ",", "0.093`", ",", "0.09368626276405342`", ",", 
   "0.112`", ",", "0.0903693013468649`", ",", "0.108`", ",", 
   "0.1287197517486353`", ",", "0.155`"}], "}"}]], "Output",
 CellChangeTimes->{{3.759314177100232*^9, 3.759314194888451*^9}, 
   3.759314259497554*^9, 3.759314292436338*^9},
 CellLabel->"Out[5]=",
 CellID->453135948,ExpressionUUID->"fef2ea0b-da40-4620-af9d-7e5011a9baa9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"$CrystalData", "\[LeftDoubleBracket]", 
    RowBox[{
    "\"\<Ferrocene\>\"", ",", "\"\<AtomData\>\"", ",", "All", ",", 
     "\"\<DisplacementParameters\>\""}], "\[RightDoubleBracket]"}], "=", 
   "newParameters"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$CrystalData", "[", 
   RowBox[{"\"\<Ferrocene\>\"", ",", "\"\<AtomData\>\""}], "]"}], "//", 
  "Dataset"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.759314208056128*^9, 3.759314238053776*^9}, {
  3.7593142714057913`*^9, 3.759314276174643*^9}},
 CellLabel->"In[6]:=",
 CellID->1873810162,ExpressionUUID->"47b1cf1a-0102-4f94-b023-bad998ed40f8"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 11, "Length" -> 11, "InitialType" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{
           "Element", "SiteSymmetryOrder", "FractionalCoordinates", 
            "DisplacementParameters", "Type"}, {
            TypeSystem`Atom[
             TypeSystem`Enumeration["C", "Fe", "H"]], 
            TypeSystem`Atom[Integer], 
            TypeSystem`Vector[
             TypeSystem`Atom[Real], 3], 
            TypeSystem`Atom[Real], 
            TypeSystem`Atom[
             TypeSystem`Enumeration["Uani", "Uiso"]]}], 11], "Shape" -> 
        TypeSystem`PackageScope`HeaderShape[
          
          Association[{All, "Element"} -> 1, {All, "SiteSymmetryOrder"} -> 
           1, {All, "FractionalCoordinates"} -> 
           1, {All, "DisplacementParameters"} -> 1, {All, "Type"} -> 1], 
          TypeSystem`PackageScope`Limited[
           TypeSystem`PackageScope`ColumnShape[
            TypeSystem`PackageScope`RowShape[
             Association[
             "Element" -> TypeSystem`PackageScope`AtomShape[27.], 
              "SiteSymmetryOrder" -> TypeSystem`PackageScope`AtomShape[34], 
              "FractionalCoordinates" -> TypeSystem`PackageScope`UnknownShape,
               "DisplacementParameters" -> 
              TypeSystem`PackageScope`AtomShape[60], "Type" -> 
              TypeSystem`PackageScope`AtomShape[36.]]]], 11, {}]], 
        "InitialData" -> TypeSystem`PackageScope`CacheHandle[170878406], 
        "Type" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{
           "Element", "SiteSymmetryOrder", "FractionalCoordinates", 
            "DisplacementParameters", "Type"}, {
            TypeSystem`Atom[
             TypeSystem`Enumeration["C", "Fe", "H"]], 
            TypeSystem`Atom[Integer], 
            TypeSystem`Vector[
             TypeSystem`Atom[Real], 3], 
            TypeSystem`Atom[Real], 
            TypeSystem`Atom[
             TypeSystem`Enumeration["Uani", "Uiso"]]}], 11], "HandleQ" -> 
        True, "RowTarget" -> 20, "Data" -> 
        TypeSystem`PackageScope`CacheHandle[170878406]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"Element\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Element\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{All, "Element"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[All, "Element"]], "Mouse"], 
                Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"SiteSymmetryOrder\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"SiteSymmetryOrder\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{All, "SiteSymmetryOrder"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[All, "SiteSymmetryOrder"]], "Mouse"],
                 Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"FractionalCoordinates\"", FontColor -> 
                    GrayLevel[0.4]]], {{20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"FractionalCoordinates\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{All, "FractionalCoordinates"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[All, "FractionalCoordinates"]], 
                 "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"DisplacementParameters\"", FontColor -> 
                    GrayLevel[0.4]]], {{20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"DisplacementParameters\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{All, "DisplacementParameters"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[All, "DisplacementParameters"]], 
                 "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"Type\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Type\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{All, "Type"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[All, "Type"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["Fe", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[1, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["2"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[1, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Style[{0.5, 0.5, 0.5}, ShowStringCharacters -> False], 
                    Style[
                    Style[{0.5, 0.5, 0.5}, ShowStringCharacters -> False], 
                    FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{1, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[1, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.0463601"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[1, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[1, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[2, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[2, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.7554, 0.6744, 0.5431}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.7554, 0.6744, 0.5431}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{2, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[2, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.0778906"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[2, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[2, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[3, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[3, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.8802, 0.6901, 0.4865}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.8802, 0.6901, 0.4865}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{3, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[3, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.093"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[3, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[3, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[4, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[4, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.7471, 0.5654, 0.6567}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.7471, 0.5654, 0.6567}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{4, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[4, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.0780711"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[4, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[4, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[5, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[5, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.8668, 0.4942, 0.69}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.8668, 0.4942, 0.69}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{5, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[5, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.093"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[5, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[5, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[6, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[6, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.551, 0.5692, 0.717}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.551, 0.5692, 0.717}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{6, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[6, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.0936863"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[6, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[6, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[7, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[7, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.5097, 0.5037, 0.7981}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.5097, 0.5037, 0.7981}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{7, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[7, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.112"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[7, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[7, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[8, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[8, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.5546, 0.7606, 0.5208}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.5546, 0.7606, 0.5208}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{8, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[8, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.0903693"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[8, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[8, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[9, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[9, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.5182, 0.8507, 0.4458}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.5182, 0.8507, 0.4458}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{9, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[9, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.108"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[9, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[9, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["C", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[10, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[10, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.4076, 0.6972, 0.6318}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.4076, 0.6972, 0.6318}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{10, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[10, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.12872"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[10, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uani", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[10, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["H", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[11, 
                   Key["Element"]]], "Mouse"], 
                ImageSize -> {{27., Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["1"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[11, 
                   Key["SiteSymmetryOrder"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    
                    Style[{0.2547, 0.7367, 0.6511}, ShowStringCharacters -> 
                    False], 
                    Style[
                    
                    Style[{0.2547, 0.7367, 0.6511}, ShowStringCharacters -> 
                    False], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    2071228915][{11, 
                    Key["FractionalCoordinates"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[11, 
                   Key["FractionalCoordinates"]]], "Mouse"]], 
               Pane[
                Annotation[
                 RawBoxes["0.155"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[11, 
                   Key["DisplacementParameters"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Uiso", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
                  GeneralUtilities`Slice[11, 
                   Key["Type"]]], "Mouse"], 
                ImageSize -> {{36., Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2071228915][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2071228915]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2071228915][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {553., {154.8544921875, 160.1455078125}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellChangeTimes->{
  3.7593142233572493`*^9, {3.759314277252428*^9, 3.7593142925659533`*^9}},
 CellLabel->"Out[7]=",
 CellID->878865774,ExpressionUUID->"de41a316-50a1-49f3-badf-689da9b49342"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "e9048339-4529-49f1-8145-1f183dbd9031"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"d65010e8-9dd5-4ad8-8d0c-69a4b8915dbe"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "9964f5b4-a1cb-4fde-8aa8-4d3d1e21d5e3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"2eb26cc3-f4aa-44f8-8b4b-7c7533c00c0a"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "f1353219-0b20-4924-924a-f13fc3963d18"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"78aa269b-840a-4e88-86cc-c8aae90ae67a"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "d8bb0765-3d02-49d6-8aca-a5f03260634c"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"52a31272-05f8-47e0-a17a-8590c3dab0d6"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "3e7147ca-83ea-4f97-aa5f-5506b5036668"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"cb2d5363-bb99-4381-8bd8-37dfecb98105"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "04863282-fac6-410e-a743-ecf7ae191e38"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"7792c8c5-fd07-4de8-86c5-4b5146c5ddac"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "411b7db6-feed-4555-b3f9-d1bc61d29dc9"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"b8692482-c27f-4185-be60-e58513f08298"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "359d7022-0ee5-4501-b585-b7e19cafffd5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"444b252b-6a5f-49aa-8e31-98247d7938dd"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "96c5e603-3baf-4b8f-baed-4ab83b649a56"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"9b316fa1-256f-47ab-8c92-81a696a12635"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"afed2519-cf66-4b4d-85b2-8d28205a1481"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.7137595841468887`*^9, 3.713759586729515*^9}},
 CellID->570284098,ExpressionUUID->"1c410213-f4e8-4a67-81b2-50d452065c90"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "EquivalentIsotropicADP"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", "_", "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.714926640095376*^9, 3.714926648623674*^9}, {
  3.7281068862853603`*^9, 3.728106924475239*^9}, {3.747569567860682*^9, 
  3.747569567914845*^9}, {3.747569839486174*^9, 3.747569852127593*^9}, {
  3.756710428101788*^9, 3.756710432840755*^9}, {3.7567104759439573`*^9, 
  3.756710476208014*^9}, {3.760947644803529*^9, 3.760947651026847*^9}, {
  3.760948534996868*^9, 3.760948535383339*^9}, {3.760948688241331*^9, 
  3.7609486934259567`*^9}},
 CellLabel->"In[616]:=",
 CellID->75583407,ExpressionUUID->"a8054776-91d2-4b8f-9321-d09eba8b2816"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EquivalentIsotropicADP", "[", "crystal_String", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "calcEquiv", ",", "latticeParameters", ",", "abc\[Alpha]\[Beta]\[Gamma]",
       ",", "a2b2c2", ",", "dispPars"}], "}"}], ",", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Input", " ", "check"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"InputCheck", "[", 
      RowBox[{"\"\<CrystalQ\>\"", ",", "crystal"}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"See", ":", "\[IndentingNewLine]", "  ", "Fischer"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"R", ".", "X", "."}], "&"}], " ", "Tillmanns"}], ",", 
       RowBox[{
        RowBox[{"E", ".", 
         RowBox[{"(", "1988", ")"}], ".", "Acta"}], " ", 
        RowBox[{"Cryst", ".", "C44"}]}], ",", 
       RowBox[{
        RowBox[{"775", "-", 
         RowBox[{"776.", "\[IndentingNewLine]", 
          RowBox[{"https", ":"}]}]}], "//", 
        RowBox[{
         RowBox[{
          RowBox[{"doi", ".", "org"}], "/", "10.1107"}], "/", 
         "S0108270187012745"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"calcEquiv", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "a_", ",", "b_", ",", "c_", ",", "\[Alpha]_", ",", "\[Beta]_", ",", 
          "\[Gamma]_"}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"a2_", ",", "b2_", ",", "c2_"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
         "U11_", ",", "U22_", ",", "U33_", ",", "U12_", ",", "U13_", ",", 
          "U23_"}], "}"}]}], "\[IndentingNewLine]", "]"}], ":=", 
      RowBox[{
       RowBox[{"1", "/", "3"}], "*", 
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"U11", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "*", "a2"}], ")"}], "2"]}], "+", 
         RowBox[{"U22", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"b", "*", "b2"}], ")"}], "2"]}], "+", 
         RowBox[{"U33", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"c", "*", "c2"}], ")"}], "2"]}], "+", 
         "\[IndentingNewLine]", 
         RowBox[{"2", "U12", "*", "a", "*", "b", "*", "a2", "*", "b2", "*", 
          RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], "+", "\[IndentingNewLine]", 
         RowBox[{"2", "U13", "*", "a", "*", "c", "*", "a2", "*", "c2", "*", 
          RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{"2", "U23", "*", "b", "*", "c", "*", "b2", "*", "c2", "*", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], "\[IndentingNewLine]", 
        ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"calcEquiv", "[", 
       RowBox[{
        RowBox[{"{", "__", "}"}], ",", 
        RowBox[{"{", "__", "}"}], ",", "iso_"}], "]"}], ":=", "iso"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"latticeParameters", "=", 
      RowBox[{"GetLatticeParameters", "[", "\[IndentingNewLine]", 
       RowBox[{"crystal", ",", 
        RowBox[{"\"\<Space\>\"", "\[Rule]", "\"\<Both\>\""}], ",", 
        RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"abc\[Alpha]\[Beta]\[Gamma]", "=", 
      RowBox[{
       RowBox[{
       "latticeParameters", "\[LeftDoubleBracket]", "1", 
        "\[RightDoubleBracket]"}], "*", 
       RowBox[{"{", 
        RowBox[{
        "1", ",", "1", ",", "1", ",", "Degree", ",", "Degree", ",", 
         "Degree"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"a2b2c2", "=", 
      RowBox[{"latticeParameters", "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", 
        RowBox[{";;", "3"}]}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"dispPars", "=", 
      RowBox[{"$CrystalData", "\[LeftDoubleBracket]", 
       RowBox[{
       "crystal", ",", "\"\<AtomData\>\"", ",", "All", ",", 
        "\"\<DisplacementParameters\>\""}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"calcEquiv", "[", 
        RowBox[{"abc\[Alpha]\[Beta]\[Gamma]", ",", "a2b2c2", ",", "#"}], 
        "]"}], "&"}], "/@", "dispPars"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327662602072*^9, {3.6824963506791697`*^9, 3.6824963547512217`*^9}, {
   3.682496400113083*^9, 3.682496493228437*^9}, 3.682677149488262*^9, {
   3.685082142306231*^9, 3.6850821530756807`*^9}, 3.685084035768195*^9, {
   3.68655238046353*^9, 3.686552426771611*^9}, {3.6865525950866337`*^9, 
   3.686552685595372*^9}, {3.686635545814003*^9, 3.686635612323032*^9}, {
   3.686645933806924*^9, 3.686646007894505*^9}, {3.686646064248117*^9, 
   3.68664607682882*^9}, {3.686655195368894*^9, 3.6866552343027163`*^9}, {
   3.6866553151103287`*^9, 3.686655409251244*^9}, {3.6866554490764103`*^9, 
   3.686655514039054*^9}, {3.686655580018355*^9, 3.686655635546473*^9}, {
   3.686655748745368*^9, 3.686655776590246*^9}, {3.714925556554666*^9, 
   3.714925578583651*^9}, {3.7149256217212152`*^9, 3.714925689133297*^9}, {
   3.7149258652268667`*^9, 3.714925953487383*^9}, {3.71492600096751*^9, 
   3.714926119019596*^9}, {3.714926175338132*^9, 3.714926196305581*^9}, 
   3.7149262352489967`*^9, {3.714926307824396*^9, 3.7149264095004387`*^9}, {
   3.714926450015284*^9, 3.7149265295624437`*^9}, {3.7149265755610447`*^9, 
   3.714926579417263*^9}, {3.714926655695353*^9, 3.714926765295703*^9}, {
   3.714927064423978*^9, 3.714927159155733*^9}, {3.7149272069557753`*^9, 
   3.7149276407442627`*^9}, {3.714927818589819*^9, 3.714927894002508*^9}, {
   3.715014199691877*^9, 3.7150142148573313`*^9}, {3.715064942408142*^9, 
   3.715064943132308*^9}, {3.7153145414034758`*^9, 3.7153145467616673`*^9}, 
   3.715327856633502*^9, {3.7154051731829433`*^9, 3.7154051929183903`*^9}, {
   3.7154052332773438`*^9, 3.715405253294734*^9}, {3.715405360310897*^9, 
   3.7154054069587708`*^9}, {3.717222403726162*^9, 3.717222415552843*^9}, {
   3.717222474077138*^9, 3.717222480379856*^9}, {3.7172225774835167`*^9, 
   3.717222584585285*^9}, {3.717740920496456*^9, 3.71774092050616*^9}, {
   3.7220727239925957`*^9, 3.722072731381322*^9}, {3.722072809534255*^9, 
   3.722072832036512*^9}, {3.722072863802107*^9, 3.722072898519074*^9}, 
   3.726561391058339*^9, 3.727675293483314*^9, 3.727676783958682*^9, {
   3.728106031257224*^9, 3.7281060589380007`*^9}, {3.728106180011772*^9, 
   3.728106202173979*^9}, {3.728106287634863*^9, 3.728106301113369*^9}, {
   3.7281063321779118`*^9, 3.728106374799776*^9}, {3.7281065875793667`*^9, 
   3.728106596424721*^9}, {3.728106935268379*^9, 3.728106947051586*^9}, {
   3.728107085050242*^9, 3.728107225807564*^9}, {3.7281087296199503`*^9, 
   3.7281087417638607`*^9}, {3.728108952031921*^9, 3.728108953406122*^9}, 
   3.728109068830366*^9, {3.728109140732355*^9, 3.728109162684065*^9}, 
   3.7281092259390078`*^9, 3.737968467010312*^9, {3.7455680832964697`*^9, 
   3.745568119889543*^9}, {3.747569432494769*^9, 3.747569442874075*^9}, {
   3.74756949426586*^9, 3.747569500574552*^9}, {3.7475695377399282`*^9, 
   3.7475695465343924`*^9}, {3.7475699175021257`*^9, 3.747569978808453*^9}, {
   3.747570081604307*^9, 3.7475700987875013`*^9}, {3.747570851329288*^9, 
   3.747570860993803*^9}, {3.747570941533657*^9, 3.747570947293482*^9}, {
   3.747570979528742*^9, 3.747570979833435*^9}, {3.7475710460233097`*^9, 
   3.747571047925109*^9}, {3.747571084476077*^9, 3.747571086328722*^9}, {
   3.747571371903867*^9, 3.7475713729193487`*^9}, {3.747571561267179*^9, 
   3.747571562589777*^9}, {3.747572757880087*^9, 3.747572827753377*^9}, {
   3.747572862364382*^9, 3.747572879792859*^9}, {3.759519240146062*^9, 
   3.759519241328768*^9}, {3.760948481143589*^9, 3.760948499262701*^9}, 
   3.762793093165646*^9, {3.786968015276478*^9, 3.7869680164346*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[618]:=",
 CellID->1167486072,ExpressionUUID->"cf799b9c-5da3-4c19-94a8-4f57105264c0"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[11519, 345, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"765208eb-133e-4734-b1b9-7a107b114b61",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 129573, 2809}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"e34814df-03c1-40f3-8b14-23c7ed694645",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"caf3c9f9-2bc6-4084-988a-ae808d890bfe",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 70, "Categorization",ExpressionUUID->"daa58d37-d40c-4034-88b0-8f65e9b4c419",
 CellID->686433507],
Cell[1446, 45, 133, 2, 70, "Categorization",ExpressionUUID->"2ea4eeb8-d515-4413-93fa-ff269848929e",
 CellID->605800465],
Cell[1582, 49, 130, 2, 70, "Categorization",ExpressionUUID->"30daf8aa-cbb0-4094-aa24-755ed598ebe0",
 CellID->468444828],
Cell[1715, 53, 132, 1, 70, "Categorization",ExpressionUUID->"72e73c26-1c8b-40ed-a6e7-9189e1505d02"]
}, Closed]],
Cell[CellGroupData[{
Cell[1884, 59, 110, 1, 19, "KeywordsSection",ExpressionUUID->"5488e420-9e66-4eb2-b954-e171e43e34c7",
 CellID->477174294],
Cell[1997, 62, 100, 1, 70, "Keywords",ExpressionUUID->"88aefe01-112e-4ef0-8709-c003d38174b8",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2134, 68, 120, 1, 19, "TemplatesSection",ExpressionUUID->"1789a87c-bf22-41f9-bd73-41b92ad66267",
 CellID->1872225408],
Cell[2257, 71, 149, 2, 70, "Template",ExpressionUUID->"22f38a74-bb36-4804-8463-0c3c3507b8f8",
 CellID->1562036412],
Cell[2409, 75, 137, 2, 70, "Template",ExpressionUUID->"57e61849-0686-4d1e-aa6f-d3fe6503b9c0",
 CellID->158391909],
Cell[2549, 79, 136, 2, 70, "Template",ExpressionUUID->"3d49edd2-74ee-4d5e-9a79-ca42c3f9bc85",
 CellID->1360575930],
Cell[2688, 83, 137, 2, 70, "Template",ExpressionUUID->"4e88d1ab-b614-4486-b745-872ce64ec071",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2862, 90, 108, 1, 19, "DetailsSection",ExpressionUUID->"407108a7-d2e9-4e0c-9e0c-4b8bdfe9b1e6",
 CellID->307771771],
Cell[2973, 93, 118, 2, 70, "Details",ExpressionUUID->"ca9386b3-5954-4761-a12d-314216040281",
 CellID->670882175],
Cell[3094, 97, 124, 2, 70, "Details",ExpressionUUID->"d62ea2d8-a25c-4ee2-93d1-acc9e476d42e",
 CellID->350963985],
Cell[3221, 101, 119, 2, 70, "Details",ExpressionUUID->"429d7c16-aacc-4ccb-9682-9305e2d113c3",
 CellID->8391405],
Cell[3343, 105, 124, 2, 70, "Details",ExpressionUUID->"9c50b4b6-8907-41fd-a292-7c60915c6414",
 CellID->3610269],
Cell[3470, 109, 116, 2, 70, "Details",ExpressionUUID->"6eef8f76-c659-4b0e-b5ee-6ffc4cd90ade",
 CellID->401364205],
Cell[3589, 113, 116, 2, 70, "Details",ExpressionUUID->"8425b846-eb44-4430-aa1f-77fd2afce511",
 CellID->350204745],
Cell[3708, 117, 118, 2, 70, "Details",ExpressionUUID->"3bf100c3-3eef-414c-abb9-99014c81f4cc",
 CellID->732958810],
Cell[3829, 121, 133, 2, 70, "Details",ExpressionUUID->"c59d0d97-bed4-43b9-8cf4-e4fab6f68bba",
 CellID->222905350],
Cell[3965, 125, 122, 2, 70, "Details",ExpressionUUID->"42a7c652-820d-4e6e-b2ef-26ed136789d4",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4124, 132, 120, 1, 63, "ObjectName",ExpressionUUID->"4e64e440-d18e-4706-9afb-07d959c41fdf",
 CellID->1224892054],
Cell[4247, 135, 808, 18, 77, "Usage",ExpressionUUID->"a6dbbaeb-be35-4f6b-8624-367a8736ea83",
 CellID->982511436],
Cell[5058, 155, 97, 1, 25, "Notes",ExpressionUUID->"91ea4971-aaf5-458c-b840-92a7f97ca6de",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[5192, 161, 112, 1, 44, "TutorialsSection",ExpressionUUID->"8f14a34b-8734-4d11-a63f-1a303be79381",
 CellID->250839057],
Cell[5307, 164, 100, 1, 16, "Tutorials",ExpressionUUID->"88ddab2c-2eee-48a1-9a7e-e029576d144c",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[5444, 170, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"cac3a47e-bc0a-44f4-b0b8-69e9a4917b41",
 CellID->1268215905],
Cell[5585, 173, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"65ffaf73-3645-48a0-b8ca-052416876a33",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[5735, 179, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"859d80da-ec66-4b53-9cfe-7cdf319c34ca",
 CellID->1584193535],
Cell[5858, 182, 424, 10, 16, "RelatedLinks",ExpressionUUID->"2be453e3-a47f-4047-9802-cf485d94ad79",
 CellID->1193746755]
}, Open  ]],
Cell[CellGroupData[{
Cell[6319, 197, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"9e4be9f7-47ae-4435-b270-adf1e7e7403b",
 CellID->1255426704],
Cell[6432, 200, 1792, 45, 39, "SeeAlso",ExpressionUUID->"0f88936f-d79e-4791-9e6a-be13133a358b",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[8261, 250, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"e6369361-1978-4c88-a636-0d3ab33dade9",
 CellID->38303248],
Cell[8376, 253, 101, 1, 16, "MoreAbout",ExpressionUUID->"5da7773e-d2b4-43d5-9054-f16be4ffe9bc",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[8514, 259, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"c29569a6-78f8-4ba7-b9c9-3927a785bf31",
 CellID->880084151],
Cell[CellGroupData[{
Cell[8950, 274, 390, 7, 50, "Input",ExpressionUUID->"d4ff8e9c-e1c5-4ca8-947c-6d26cd9550e4",
 CellID->216885979],
Cell[9343, 283, 1408, 35, 116, "Output",ExpressionUUID->"2dac3af0-0d13-42ba-b54c-3e7ba9a0fed0",
 CellID->1662262888]
}, Open  ]],
Cell[CellGroupData[{
Cell[10788, 323, 269, 5, 29, "Input",ExpressionUUID->"483a6d5f-6dd0-45da-a8c0-0ea94be60393",
 CellID->1260670980],
Cell[11060, 330, 410, 9, 25, "Output",ExpressionUUID->"10b96319-60fe-49ab-9013-d00f2c1b30e6",
 CellID->1037594793]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11519, 345, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"765208eb-133e-4734-b1b9-7a107b114b61",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[11699, 351, 284, 6, 33, "ExampleSection",ExpressionUUID->"81fa028d-e926-4f05-adca-90852d589381",
 CellID->1293636265],
Cell[11986, 359, 293, 5, 37, "ExampleText",ExpressionUUID->"81adf01c-9070-464b-83c7-b8f4503bc18a",
 CellID->41452660],
Cell[12282, 366, 318, 8, 22, "ExampleText",ExpressionUUID->"527b7197-39fd-41f3-b41a-5f6c4161b9e4",
 CellID->718068048],
Cell[12603, 376, 570, 13, 71, "Input",ExpressionUUID->"9386c1ea-63df-4705-bc0b-7a71a603c509",
 CellID->1167243622],
Cell[13176, 391, 171, 2, 22, "ExampleText",ExpressionUUID->"e72b219f-a823-4da6-bf5c-c2b67e6b29fd",
 CellID->998333548],
Cell[CellGroupData[{
Cell[13372, 397, 366, 8, 27, "Input",ExpressionUUID->"9fca3e6f-0712-42fb-99ff-f3c38c4d8b32",
 CellID->1912889057],
Cell[13741, 407, 53082, 1103, 328, "Output",ExpressionUUID->"3b2b5b7c-7601-4c7a-b086-03c89f63062d",
 CellID->2076979819]
}, Open  ]],
Cell[66838, 1513, 169, 2, 22, "ExampleText",ExpressionUUID->"66156fe3-f768-4b3a-989e-84a58067b0e6",
 CellID->259200706],
Cell[CellGroupData[{
Cell[67032, 1519, 319, 7, 27, "Input",ExpressionUUID->"e1df406d-1b84-4369-801d-ec8b3b65d659",
 CellID->1818909673],
Cell[67354, 1528, 527, 10, 44, "Output",ExpressionUUID->"fef2ea0b-da40-4620-af9d-7e5011a9baa9",
 CellID->453135948]
}, Open  ]],
Cell[CellGroupData[{
Cell[67918, 1543, 675, 15, 85, "Input",ExpressionUUID->"47b1cf1a-0102-4f94-b023-bad998ed40f8",
 CellID->1873810162],
Cell[68596, 1560, 46755, 943, 328, "Output",ExpressionUUID->"de41a316-50a1-49f3-badf-689da9b49342",
 CellID->878865774]
}, Open  ]]
}, Open  ]],
Cell[115378, 2507, 265, 5, 33, "ExampleSection",ExpressionUUID->"d65010e8-9dd5-4ad8-8d0c-69a4b8915dbe",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[115668, 2516, 244, 5, 21, "ExampleSection",ExpressionUUID->"2eb26cc3-f4aa-44f8-8b4b-7c7533c00c0a",
 CellID->2061341341],
Cell[115915, 2523, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"78aa269b-840a-4e88-86cc-c8aae90ae67a",
 CellID->1757724783],
Cell[116165, 2530, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"52a31272-05f8-47e0-a17a-8590c3dab0d6",
 CellID->1295379749]
}, Closed]],
Cell[116427, 2538, 248, 5, 21, "ExampleSection",ExpressionUUID->"cb2d5363-bb99-4381-8bd8-37dfecb98105",
 CellID->258228157],
Cell[116678, 2545, 259, 5, 21, "ExampleSection",ExpressionUUID->"7792c8c5-fd07-4de8-86c5-4b5146c5ddac",
 CellID->2123667759],
Cell[116940, 2552, 252, 5, 21, "ExampleSection",ExpressionUUID->"b8692482-c27f-4185-be60-e58513f08298",
 CellID->1305812373],
Cell[117195, 2559, 257, 5, 21, "ExampleSection",ExpressionUUID->"444b252b-6a5f-49aa-8e31-98247d7938dd",
 CellID->1653164318],
Cell[117455, 2566, 249, 5, 21, "ExampleSection",ExpressionUUID->"9b316fa1-256f-47ab-8c92-81a696a12635",
 CellID->589267740],
Cell[CellGroupData[{
Cell[117729, 2575, 374, 8, 21, "ExampleSection",ExpressionUUID->"1c410213-f4e8-4a67-81b2-50d452065c90",
 CellID->570284098],
Cell[118106, 2585, 866, 17, 65, "Input",ExpressionUUID->"a8054776-91d2-4b8f-9321-d09eba8b2816",
 InitializationCell->False,
 CellID->75583407],
Cell[118975, 2604, 10172, 187, 651, "Input",ExpressionUUID->"cf799b9c-5da3-4c19-94a8-4f57105264c0",
 InitializationCell->False,
 CellID->1167486072]
}, Closed]]
}, Open  ]]
}
]
*)

